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Bliss-32 V4.0-74 Pa 1 
14-Sep-1 1 ws ( 


X=11 jo 
SKSVMSMASTER: CNML.SRCJNMLLIST.832; 1) 


0001 ZTITLE —* LIST permanent parameter module’ ; 
0 § MODULE NMLSLIST ( 3 
0 LANGUAGE (BLISS32) 3 
004 ADDRESSING_MODE (NONEXTERNAL=GENERAL) , : 
005 ADDRESSING MODE (EXTERNAL=GENERAL), 3 
One IDENT = 'v04-000' 3 
00 dz ; 

gag gecin | 

Bere ' leuuenaeenereneeeenenseeaeeeeeenteeereteetentrententtnenenerenrnntreeteettes : 

:* = Ps 

oo t6 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 

18 % ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . : 
Sete : :* ALL RIGHTS RESERVED. * F 
' & P 

O016 1 !'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 

0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 

0018 1 !* INCLUS'ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 

0019 1 !* COPices THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 

0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 

B053 : cs TRANSFERRED. * 3 

! * F 

0038 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 

0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 

bos? : :* CORPORATION. * 3 

! « 3 

bose 1 !'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 

oo . ! . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

$080 1 is . : 

ed : acct ce acai cn hain tina ita eanaaiai : 
$033 1 ; 

0034 1 !+4+ 3 

Bae ; : FACILITY: DECnet-VAX Network Management Listener : 

0037 1 ' ABSTRACT: : 

0038 1! : 

4 \ This module contains routines for processing the NCP LIST command. : 

0041 i ENVIRONMENT: VAX/VMS Operating System : 

Oo4§ : AUTHOR: Distributed Systems Software Engineering ; 

0045 1 ! CREATION DATE: 30-DEC-1979 

B66 1! 

0047 1 ! MODIFIED BY: 

0048 1! 

0049 1! v03-004 MKP000S Kathy Perko 4-Aug-1983 

0050 1! Enhance access time to the node permanent database by using 
bay ! } multiple ISAM keys to speed up access. | 
b38 1 v03-003 MKP0004 Kathy Perko. 26-April-1983 
054 1! Make GETTABLE a global routine for SET MODULE CONFIGURATOR | 
086 : ALL command processing. 

005; 1 | V03-002 MKP0003 Kathy Perko = 5=July-1982 


Fe a me tt td tt 
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NML LIST permanent parameter module 15- 00-1986 99:18:33 


Add support to List X25-Protocol Group entity (a single 


entity show is essentially a mult 
there ge be more than one DTE per group.) 
Add X29 Server and Trace Modules. 


ple show command because 


MKPO0002 grt Agee 16-June-1982 


Add handling for entity qualifiers. 


Sum cist .032;1°%° f 
| 


MKPO001 Kathy Perko 23-July-1981 


Add circuit entity and multidrop Lines. 
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NML LIST permanent parameter module 


Declarations 


vor=600. 


ZSBITL ‘Declarations’ 
TABLE OF CONTENTS: 


NODES: NOVALUE, 
: MOVALUE, 


YPE_NODES: NOVALUE 
: NOVALUE; 


KNOWN 


ENTITY” 
LE 


ENTITY, 


T 
3) 


INCLUDE FILES: 
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dl ed ed ed 
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BRARY ‘SYSSLIBRARY: 


BRARY ‘LIBS:NMLLIB 
BRARY ‘SHRLIBS:NM, 
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NMLSLIST NML_LIST permanent parameter module -1 
yO%~00 NMLSLISTKN ‘ " 


Liss-32 V4.0 
OWN List known entity parameters R 


7 
Se 4 00:18:35 VAX=11 8 -74 P 
meet 19345578 DISKSVMSMASTE PENML SRCINMLLIST.B32;1°%" (3 
ram 
ENT 


ZSBTTL "NMLSLISTKNOWN List known entity pa 
GLOBAL ROUTINE NMLSLISTKNOWN (ENTITY, INF 


4 
) 


eters’ 
JTY_LEN, ENTITY_ADR) : NOVALUE = 
1e4 


FUNCTIONAL DESCRIPTION: 


This routine Lists entries for all entities of the specified type 
in the permanent data base. 


FORMAL PARAMETERS: 


i 
i 
i 
i 
: ENTITY Entity type code. 

: Information type code, 

} ENTITY_LEN Byte count of entity id string (used only if there 
' is a qualifier in the command, in which case it is 
: essentially a multiple LIST command.) : 
’ ENTITY_ADR Address of eee id string (used only if there is 
: a qualifier in the command, in which case it is 
essentially a multiple LISf command.) 

le 


S$ 
$ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
FID, ! File id code 
KEY ! Temporary record key buffer 


—— ee 


y ! Record descriptor 


Set up entity-specific information. 
SELECTONEU .ENTITY OF 
SET 


WN — OO DNOUESWN $0 ODNAUSWWN —"OOODNOUSWN—O0O~ 


CNML$C_CIRCUIT): 
BEGIN 


NOu 


f open fails, return other information anyway.) 
NMLSOPENFILE (NMASC_OPN_NODE, NMASC_OPN_AC_RO); 
END; 
TES; 
: Get entity information. 


FID = .NALSAB ENTITYDATA ENTITY 
OWNER = .NMLSAB_ENTITYDATA L.ENTITY 


Get table. 
NMLSGETTABLE (.ENTITY, .INF, TABDSC); 


OWNER. 3 ' Data base search key 
3 ore" node file to get pee Fong + name. 
| 


El DI: | Get file id 
° : ! Get search key 
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]p~ge0- 138% 90:18:33 VAX-11 Ol ise. 32 v4. 5 
OWN List known entity parameters 14-Sep-1984 2:50:10 DISKSVMSMASTER: cum” She NMLLIST.B32; 29 * 03) 


SD 


> «(184 01 ¢ 

; 13? 0 ? | Try to match record in file. 

: 189 185 KEY = 0; ! Initialize record key 
; 188 8} $ WHILE NMLSMATCHRE CORD (.FID, NMLSGQ_RECBFDSC KEY, .OWNER, 
> 189 | ENTITY“LEN, .ENTITY_ADR, 

: 190 0188 6, 0, 07 RECDSC) DO 

s 191 189 BEGIN 

: 136 0190 NML_LISTENTITY (.ENTITY, RECDSC, .TABDSC); 

; 19 0191 KEY = .KEY + 1; 

: 194 b198 END; 

; 195 bi8 

; 196 194 END; ! End of NMLSLISTKNOWN 


-TITLE NMLSLIST NML LIST permanent parameter module 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
00000 NMLST_ENTITYBUF: 


-BLK 4 
00040 NML$Q_ ENTITYDSC: 
-BLKB 


5 CHAN 
-EXTRN NMLSGL LOGAASK NML$GQ_ENTSTRDSC 


yey RMSEM 
“NMLSAL BENTINETAB 


NML$GB_CMD_VER 
DE 


AB-RECBUFY 
R 


Sete Fe ee ee Be Se oe 


ear rm mca 


nsec cegmeeienasiainaimaanasisieae } 
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ep-1984 00:18:3 VAX-11 Bliss-32 V4.0-74 Pa 6 
oP- 1 3be 90:18:73 NERC SUMGMASTER SCAM SRC SNMLLIST.B3251 ™ (3) 
XTRN NMLS$GB_INFO, NML$GB_OPTIONS 


XTRN NMLSGL-PRMCODE, NMLSGL_PRS_FLGS 
XTRN NMLSGL NML ENTITY 


NALS Ast NML_LIST permanent parameter module ies 
v04- NMLSLISTKNOWN List known entity parameters 14*$ 


TRN NMLSMATCHRECORD 
XTRN NMLSREADPARLIST 
SEXTRN NMLSREADRECORD, NMLS$READ_KNOWN_NODE_REC 
RN MMLSSEND 


-PSECT S$CODES,NOWRT,2 


001¢ 00000 .ENTRY NMLSLISTKNOWN, Save R2,R3,R4 0126 
5E 10 ¢ 90008 SUBL2 
5 04 AC D 9000 MOVL ENTITY, R2 0159 
09 52 D1 00009 CMPL  R2, #9 0162 
09 12 0000C BNE 
43 7¢ 9900 CLRQ = =(SP) 0168 
000000006 00 9 FB 001 CALLS #2, NMLSOPENFILE 
0 52 € C5 00017 1$: MULL3 #44, R2, R 0176 
54 0000000060040 9A 00018 MOVZBL NML$AB_ENTITYDATACROJ, FID 
0000000060040 9F 9002 PUSHAB NMLSAB_ENTITYDATA+3CROJ 0177 
53 9E 3C O002A MOVZWL @(SP)+> OWNER 
SE DD 0002D PUSHL SP 
08 AC DD d00¢F PUSHL INF 
3¢ DD 00032 PUSHL Re 
00000000v 00 03 FB 00034 CALLS #3, NMLSGETTABLE 
04 AE D4 90038 CLRL SKY 
08 AE 9F OO03E 28: PUSHAB RECDSC 
7E 7C 00041 CLRQ = =(SP) 
7E D4 00043 CLRL = = (SP) 
7E 0c AC 7D 00045 MOVG = ENTITY_LEN, -(SP) 0187 
5 DD 4 PUSHL OWNER 0186 
20 AE 9F 00048 PUSHAB KEY 
000000006 00 9F QOO4E PUSHAB NML$GQ_RECBFDSC 
54 DD 00054 PUSHL 
000000006 00 OA FB 0056 CALLS #10, NMLSMATCHRECORD 
1 50 €9 0005D BLBC 3E.-s«aRO, 38 
6E BD 06 PUSHL TABDSC 0190 
OC AE OF 06 PUSHAB RECDSC 
3 DD 0006 PUSHL R 
00000000v 00 FB 0006 CALLS #3, NML_LISTENTITY 
04 AE D6 O06E INCL KEY 0191 
CB 11 000 BRB 0186 
04 00073 3$ RET 194 


; Routine Size: 116 bytes, Routine Base: S$CODE$ + 0000 


; 197 


0195 1 
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v04- LSLIST_KNOWN_NODES List known nodes 14-Sep-1984 12:50:10 DISKSVMSMASTER: CNML.SRCJNMLLIST.B32;1 (4) 

199 ZSBTTL "NMLSLIST_KNOWN_NODES List known nodes' 

+ GLOBAL ROUTINE NALSLIST_KNOWN_NODES (ENTITY, INF, DUM1, DUM2) : NOVALUE = 

0 144 

8 FUNCTIONAL DESCRIPTION: 

0 This routine Lists all entries for nodes that are in the permanent 


data base. The executor node is Listed first. Remote nodes are 
then Listed. Loop nodes are Listed Last. 


FORMAL PARAMETERS: 


ENTITY Entity type code. 
INF Information type code. 
DUM1 Not used. 
DUM2 Not used. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
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4 NONE 

5 sib 

3 3 BEGIN 

3 3 ! 

3 ; : Return executor node. 
239 $$ nml$list_type_nodes (nml$c_executor, .inf, 0, 0); 

241 38 ! Return remote nodes. | 
348 44 nml$List_type_nodes (nm\$c_node, .inf, 0, 0); | 
zs 4@ Return loop nodes. 
2s ts nml$list_type_nodes (nml$c_loopnode, .inf, 0, 0); 

49 46 1 END; ! End of NMLSLIST_KNOWN_NODES 

0004 00000 .ENTRY NMLSLIST_KNOWN_NODES, Save R2 ; 0197 


a ee SE ES - 
R NML_LIST permanent .- ; 


LSLIST - :18: - 
yon poe NMLSLIST_KNOWN del Clad beaon notes ~300- 138% 99:18:39 PE EKSUNGMASTERSCNML Sac NMLLIST.832; a9 * 8 


52 00000000v 90 3 2 MOVAB NMLSLIST_TYPE_NODES, R2 F 
—E 7¢ CLRQ = =(SP) + 0236 

08 AC DD B PUSHL INF ; 

DD PUSHL #7 3 

62 4 FB 0001 CALLS #4, NMLSLIST_TYPE_NODES ; 
— 7C 0001 CLRO 0 -_ = (§P) + 0240 

08 AC DD 0001 PUSHL INF : 

03 DD 0 18 PUSHL #3 ; 

62 Oe FB O1A CALLS a4 NMLSLIST_TYPE NODES é 
— 7C 0001D CLRO =(SP) + 0244 

08 AC DD 0001F PUSHL ; 

05 DD 00030 PUSHL is ; 

62 04 FB 00024 CALLS #4, NMLSLIST_TYPE_NODES ; 
04 00027 RET + 0246 


; Routine Size: 40 bytes, Routine Base: $CODE$ + 0074 
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NMLSLISTENTITY List entity parameters 14-Sep-1984 12:50:10 DISKSVMSMASTER: CNML.SRCIJNMLLIST.B32;1 (5) | 
: és 1 ZSBTTL "NMLSLISTENTITY List ong ity pereneters. 
: $3 } GLOBAL ROUTINE NMLSLISTENTITY (ENTITY, INF, ENTITY_LEN, ENTITY_ADR) : NOVALUE = 
: 1 1 !44 ; 
: ; : FUNCTIONAL DESCRIPTION: 
: 4 1/3 This routine Lists permanent data base information for the specified 
; 5 : } entity. 
: 0 3 | FORMAL PARAMETERS: 
; 25 ii ENTITY Entity type code. 
: 60 1! INF Information type code. 
3 61 1! ENTITY_LEN Byte count of entity id string. 
3 8 6¢ : : ENTITY_ADR Address of entity id string. 
: 0264 1 i-- 
3 0265 1 
: 0266 BEGIN 
: 0267 
; 0268 LOCAL 
; 0269 fid, ! File id code 
; 0270 key, ! Temporary record key buffer 
; B52) key_value_dsc: VECTOR (2), 
s ere 0 i detail, ' Error detail 
s ar 027 owner, ! Data base search key 
; 278 Ogee recdsc : DESCRIPTOR ! Record descriptor 
; 279 0275 tabdsc : REF DESCRIPTOR, 
; 280 o¢76 status, 
3; 281 027 node_type; 
. cae 
: $ 4 OSes i af LISTing a circuit, open node file in case there's a loop node set up 
; 285 0281 ! on the circuit. In that case I must get loop node name to add to the 
; 286 oSa¢ ! NCP response message. (If open fails, return other information anyway.) 
: Shs 058e 5 | 
: 289 og82 IF .entity EQL nml$c_circuit THEN 
3 + OSES nml$openfile (nma$c_opn_node, nma$c_opn_ac_ro); 
: 33 osee Get entity information. 
> 29% $590 tid = -nml$ab_entitydata C.entity, eit$b_fileid); ' Get file id 
3 $32 594) owner = .nml$ab_entitydata [C.ent tye eitSw_key];— ' Search key 
3 39 3 3 detail = .nml$ab_entitydata t.entity, eitSw_detail]; ! Error detail 
; $95 $594 i Try to get the entity's record from the permanent database file. 
: 299 0295 ! The node database organization is different from the others (it uses 
; 300 0296 ! 3 ISAM keys instead of one) to make it more efficient. This is 
3 Bs 0 4 } necessary because of it's size. 
: 08 6 99 2 node_type = 0; 
: 304 00 IF .Fid EQL nma$c_opn_node THEN 
; 305 4 BEGIN 
; 4) ; IF .entity EQL nml$c_executor THEN 
; tH 4 8 
; 308 0304 4 key_value_dsc (0) = nmn$c_typ_key_len; 
| 
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manent parameter module 1b-se -1984 00:18:35 AX-11 Bliss-32 V4.0 
TY L st entity paraneters 1 =3ep-19 4 90:48:73 


bey .value.dec C1] = UPLIT (nml$c_executor); 


IN 
key_value_dsc £92 = .entity_len; 


key_value_dsc -entity_adr; 
status = nml$readrecord (.fid, ' Node DB file ID 
owner, ' ISAM —% type to use. 
value_dsc, ! Entity 1D descriptor address 


ke 

nm Sgq_recbfdsc, i Read buffer. 
recdsc, ! Return data descriptor. 
node_type); ! Not used for List. 


BEGIN 
key = 0; ! Initialize record key 
status = nml$matchrecord (.fid, gacopa_rech tess. key, .owner, 
P ngity. en, .entity_adr, 
0, 0, 0, recdsc); 
END; 
eStatus THEN 
BEGIN 
! If the entity read was a node that turned out to be the executor, 
make sure the LIST information returned to NCP is for the executor. 


IF .node type EQL nml$c_executor THEN 
entity = nml$c_executor; 


Get table of parameters to include in LIST type (STATUS, SUMMARY, or CHAR). 
nml$gettable (entity, .inf, tabdsc); 
on istentity (.entity, recdsc, .tabdsc); 
nml$error_2 (nma$c_sts_cmp, .detail); ! Signal error message 
! End of NMLSLISTENTITY 


-PSECT SPLITS,NOWRT,NOEXE ,2 
00000007 00000 P.AAA: .LONG 7 


-PSECT SCODES,NOWRT,2 


001¢ 99000 ENTRY NMLSLISTENTITY, Save R2,R3,R4 
54 000000006 00 9€ 0000 MOVAB NML$GQ_RECBFDSC, R 
3 000000006 9 09 MOV NMLSAB"ENTITYDATA, R3 
3 C 1 SUBL2 #30, SP 
04 AC D 1 CMPL ENTITY, "9 
: 2 0001 BNEO 
E 7C 00019 CLRQ = =( SP) 


Vv 3 shes Pa 
DISKSVMSMASTER: CNML.SRCIJNMLLIST.B32;1 


sect ty 
50 4 


04 


000000006 


000000006 


04 


00000000Vv 
00000000Vv 


v000000u6 


; Routine Size: 198 bytes, 


we SIS LIST permanent parameter module 
v04- NAESL ISTENTITY List entity parameters 


00 2 Fe 
AC 

51 6 A 
ee 
01 a30o F 
52 9E 3C 
E D4 

) 

. 3 

07 04 AC D 
i 

AE 3 
AE 00000000" 7 
AE oc ac 70 
5E 0D 

14 AE OF 
54 DD 

24 «AE OOF 

14 AE 9F 
51 DD 
00 06 FB 
1D 11 
08 AE D4 

10 AE OF 
7E 7¢ 
7E be 
7E oc AC 7D 
1¢ =6AE DD 

24 «AE OOF 
12 BB 
00 OA FB 
28 50 £9 
07 6E 01 
04 12 
AC 07 00 
OC AE OF 
7E 04 ac 70 
00 05 FB 
OC AE 0D 

14 AE OF 
ee a 
if 
52 0D 
7E 08 Ce 
00 02 FB 
04 


Routine Base: S$CODE$ + 009C 


te 


Sep-1 
Sep-1 


18: 


4$: 


5$: 


6$: 


42 NM SOPENF I E 
4, ENTITY 
nal SAB "ENT yOArACROD FID 


R63 

* OWNER 
NAL SAB. ENTITYDATA+1 CROJ 
TYPE 


mow 


TITY, #7 


KEY_VALUE_DSC 
Phat REY_VACUE_DSC+4 


ENTITY_LEN, KEY_VALUE_DSC 
RECDSC 


KEY_VALUE_DSC 
OWNER 


FID 

£6, NMLSREADRECORD 
KEY 

RECDSC 

-(SP) 

-(SP) 

ENTITY_LEN, -(SP) 
OWNER 

KEY 

#°MCR 

#10 Meee AATCHRECORD 
STATUS, 

NODE_TYPE, #7 

#7, ENTITY 

TABDSC 

ENTITY, =-(SP) 

#3, NMLSGETTABLE 
TABDSC 

RECDSC 

ENTITY 

#3, NML_LISTENTITY 
DETAIL 
#8, -(SP) 

#2. NMLSERROR_2 


382 93: 45 i3 DT aKSVMSHAST ERCENML SRC SRC JNMLLIST.B32; 29 
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‘* 
T permanent parameter module 16-Sep-1984 00:18:3 VAX-11 Bliss-32 V4.0-74 Pa 1 
TENTITY L st known entity parameters 13-808-1 382 99:35:33 DLEKSVMGMASTERSNML  SRCINMLLIST.B3251 = (BS 
ZSBITL "NML_LISTENTITY List _known soy ity pecopesers” 

ROUTINE NML_LISTENTITY (ENTITY, RECDOSC, TABDSC) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine performs common List function for both singular and 
plural entity operations. 


i 

i 

' 

i FORMAL PARAMETERS: 
ENTITY Entity type code. 

: RECDSC Address of permanent data base record descriptor. 
TABDSC Address of parameter List table descriptor. 

{ IMPLICIT INPUTS: 

; NONE 

{ IMPLICIT OUTPUTS: 

NONE 

i 
i 
i 
i 
i 
i 
i 
i 
' 
i- 


ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success. 
SIDE EFFECTS: 
NONE 
BEGIN 


LOCAL 
MSG_SIZE; ! Message size 


] 
Get the record owner. 


NMLSAB_MSGBLOCK [MSB$B_CODE] = NMASC_STS SUC; 
NMLSQ_ENTITYDSC CDSCS$WILENGTH] = NMLSK_ENTBUFLEN; ! Initialize entity descriptor 
NMLSQ"ENTITYDSC CDSCSA~POINTER] = NML$T_ENTITYBUF; 
IF NMLSGETRECOWNER (.RECDSC, 
ENTITY, 
NML$Q_ENTITYDSC, 
NMLSQ"ENTITYDSC COSC$W_LENGTH)) 


eeci 
NMLSAB_MSGBLOCK (MSBSL_FL 


x FLAGS] = MSBSM_ENTD FLD; ! Set entity descriptor flag 
a SAS ASSOLE MSBSA_ENTITY t 


TY] = NML$O_ENTITYDSC; ! Add entity descriptor pointer 


NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSG_SIZE); ! Build message 


; Routine Size: 


tee teRT 


111 bytes, 


Sap: Sepa 


WT Liet tnsun ont ES perenvaes 16- se0-1986 0 18: 8 Dts KSUNGA nen AeFeRechmc see SRC JNMLLIST.832; 
NMLSREADPARLIST (NML$GQ_SNDBFDSC, MSG_SIZE, .TABDSC, .RECDSC); 
NMLSSEND (NMLSAB_SNDOBUFFER, .MSG_SIZE); ! Send message 
RETURN NML$_STS_SUC 
END; ! End of NML_LISTENTITY 


QO0C 00000 NML_LISTENTITY: 
WORD Save R2,R3 
MOVAB NMLSAB MSGBLOCK, R3 


53 000000006 00 9€ 9002 
52 00000000" 00 9—E 0000 MOV NML$Q_ENTITYDSC, R2 
oe s ¢£ 9010 SUBL a4, SP 
04 A 01 90 0001 MOVE NMLSAB -MSGBLOCK+4 
62 40 8F 98 00017 MOVZ7BW + bi NML$Q-ENTITYDSC 
04 Ae CO A2 9€ 0001B MOVAB NMLST_ENTITYBUF, NMLSQ_ENTITYDSC+4 
52 DD 00020 PUSHL R 
52 DD 00022 PUSHL 
04 AC DD 00024 PUSHL EATITY 
08 AC DD 00027 PUSHL RECDSC 
000000006 00 04 FB 0002A CALLS #4, NMLSGETRECOWNER 
07 50 €9 00031 BLBC = RO. «18 
63 10 dO 90054 MOVL #16, NMLSAB_MSGBLOCK 
16 AB 62 9E 00037 MOVAB Mal 60° NTITYDSC, NML$AB_MSGBLOCK+20 
4008 8F 8B 0003B 1$ PUSHR henge SP> 
000000006 00 02 FB 0003F CALLS #2. NMLSBLD_REPLY 
08 AC DD 00046 PUSHL RECDSC 
0C AC DD 00049 PUSHL 
08 ar OF bO04¢ PUSHAB MSG SIZE 
000000606 00 9F O004F PUSHAB NAL Sa SNDBF DSC 
000000006 00 04 FB 00055 CALLS NMCSREADPARLIST 
DD 0005¢ PUSHL ag 
000000006 00 9F 0005E PUSHAB NAL SAB SNDBUFFER 
000000006 00 02 FB 0064 CALLS NMCSSE 
50 01 DO 00068 MOVL oR 
04 0006E 


Routine Base: S$CODE$S + 0162 
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I pernenent parameter module =3007138% 99:1 :35 em 


$ 
s 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
' 
é 
1 


M7 
1 BL 
_'YPE_NODES List known node parameters 14-Sep- 710 D 
ZSBTTL "NMLSLIST TYPE_NODES List known node parameters’ 

GLOBAL ROUTINE NALSLIST_TYPE_NODES (ENTITY, INF, DUM1, DUM2) : NOVALUE = 


'e¢ 

! FUNCTIONAL DESCRIPTION: 

! This routine Lists permanent data base information for known remote 
nodes or loopnodes. 


| 
! 
FORMAL PARAMETERS: 

ie Entity type code (always NMLSC_NODE). 
; 

1 

' 


Information type code. 
DUM1 Not used. 
DUM2 Not used. 


L 

recdsc : DESCRIPTOR 
tabdsc : REF DESCRIPTOR, 
rewind_ flag; 


' Record descriptor 
! Table descriptor 


' 
Get entity information. 
nmi $gettable (.entity, .inf, tabdsc); ! Get information table 


i Read all records that have a node type key (remote or loopnode) that 
! matches the entity type parameter. 


rewind_flag = true; 
WHILE nml$read_known_node_rec (.entity 


nml$gq_recbfdsc, 
recdsc, 
-rewind_flag) DO 
BEGIN 
rovted, fies = false; 
nml_Listentity (.entity, recdsc, .tabdsc); 
END; ! End of nml$Llist_type_nodes 


11 Bliss-32 
KSVMSMASTER: 


ye Ores Page 
CNML.SRCJNMLLIST.B832;1 


0004 000 -ENTRY ON, FL 1ST TUPE ONES, Save R2 : 

SE £ 3 000 pute #i2, SP : 

7E 04 as D $6 MOVa ENTITY, =(SP) : 

00000000Vv 99 FB OO CALLS #3, NMLSGETTABLE H 
1 D 1 MOVL #1, REWIND FLAG ; 

2 00 15 18: PUSHL REWIND_FLAG ; 

4 a5 F 1 PUSHAB RECDSC : 

000000006 00 9F 1A PUSHAB NML$GQ_RECBFDSC : 

4 AC DD 20 PUSHL ENTITY : 


14 
(7) 


N 7 
NAL T LIST permanent parameter module 16-Se 4 VAX-11 Bliss-32 V4.0-7 

WO bOS hate tt 1 FYPE NODES List known node parameters 14- 300-1 3B 99: 48: 4 DISKSVMSMASTER:CNML. she NMLLIST.832; fa9 © 3 

000000006 00 4 FB 00023 CALLS #4, NMLSREAD_KNOWN_NODE_REC ; 

1 30 £9 $0 A BLBC : - satis F 
5 D4 0002D CLRL REWIND_FLAG : 0447 
6E DD 0002F PUSHL TABDSC : 0448 

08 AE 9F 00031 PUSHAB RECDSC 3 

04 AC DD 000 PUSHL ENTITY : 

FFSS CF 0 FB 00037 CALLS #3, NML_LISTENTITY : 
D7? «+11 0003C BB 1$ 3: 0442 
04 O003E 2$: RET 3 0450 


; Routine Size: 63 bytes, Routine Base: $CODE$ + 0101 
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| 
NML T NML_LIST permanent parameter module ib-se -1984 00:18:35 VAX-11 Bliss-32 V4.0-74 Page 16 
v04 NMLSGETTABLE Get table descriptor 1a-Sep- 3B 99:38:93 PE RSUMEMASTERSCNML SRCSNMLLIST.8325 ’ (BS 
; tes 451 1 ZSBTTL "NMLSGETTABLE Get table Geacriptor. 
3 re r ; ! GLOBAL ROUTINE NMLSGETTABLE (ENTITY, INF, TABDSC) : NOVALUE = 
; 461 454 1 S44 
; re : 5 : FUNCTIONAL DESCRIPTION: 
> 464 oce9 14 This routine selects the parameter table for processing permanent 
; 465 0458 1! data base information based on the entity type and the information 
; 466 0459 1! type. 
; 467 0460 1! 
: 468 0461 1 ! FORMAL PARAMETERS: 
> 469 Be 86 : 
; 470 465 1! ENTITY Entity id code. 
> 471 0464 1! INF Information 1 code. 
: rtf Beee : TABDSC Address of table descriptor. 
: 474 467 1°! IMPLICIT INPUTS: 
s 475 468 1! 
: 476 0469 1! NONE 
: 477 0470 1! 
: 478 0471 1 ! IMPLICIT OUTPUTS: 
3; 479 0472 1! 
; 480 0473 1! NONE 
; «+481 0474 1! 
: 48 0475 1 |! ROUTINE VALUE: 
H 8 476 1 ! COMPLETION CODES: 
> 484 477 1! 
; 4485 0478 1! NONE 
; 486 0479 1! 
: 487 0480 1 ! SIDE EFFECTS: 
; 488 0481 1! 
; 489 0482 1! NONE 
; 490 0483 1! 
> 491 0484 1 i-- 
; 49 485 1 
; 49 486 BEGIN 
; 494 0487 
: «495 0488 LOCAL 
; 0489 ENTTAB : REF VECTOR; 
3; 497 0490 
; 498 0491 ! 
; 43 93 : Get the address of this entity's vector of information tables. 
; 21 rb ENTTAB = .NMLSAL_PERMINFTAB C.ENTITY); 
3 508 Be38 : Select the table according to the information type. | 
3 He res , _sTABDSC = .ENTTAB C. INF; | 
3; 507 500 ! If the table descriptor address is equal to zero then the requested 
; 508 501 ! information type is not supported for this entity. Signal an error 
3 o : § } indicating invalid function or option. 
; 511 504 IF ..TABDSC EQLA 0 
: \¢ 505 THEN 
; 13 3 NMLSERROR_1 (NMASC_STS_FUN); 


cen 
i 


Be 


END; 


oc 


on OM 


0 
1 
0 
C 
E 
000000006 00 
36 bytes, 


; Routine Size: 


: 518 


0511 «1 


Routine Base: 


NML_LIST permanent parameter module 
ste tabre Get table descriptor 


RETURN NML$_STS_SUC 


4 A 

000000 ge00% 
A 
O18 


1 
01 


D 
D 
Dd 
1 
C 
F 
0 


SCODES + 0210 


if 


sf 1 
=Sen-1 


Be 93:58:76 


! End of NMLSGETTABLE 


VAX-11 Bliss-32 V age 17 

DISK ty MSMASTER: cNnc OS ACINMLLIST. B32:1 (5 

WEP EET TABLE. Save nothing $ t3e 
NML$AL_PERMINFTABLROJ, ENTTAB : 

INF, R + 0498 
(ENfTAB) CROJ, @TABDSC ; 

1$ 3; 0504 

#i, conor ; 0506 
#1, NMLSERROR_1 ; 

; 0510 


| 


S3 


| dD 8 

NMLSLIST NML LIST permanent parameter module 16-Sep X-11 s-32 V e 18 

yo%~000 NMLSGETTABLE Get toble descriptor 14-Sep ats fi 99: 18:33 SK$V nen TER: chat” She NMLLIST.832;1 20 (9) 
! End 


> 520 18 1 END End of module : 
: 32] 212 ; 
: 2 14 0 ELUDOM ; 
PSECT SUMMARY ; 
; Name Bytes Attributes : 
; SOWNS 72 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SCODES 564 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, paket Brg b abd t ‘ 
; SPLITS 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
; Library Statistics 
ES eee et eee ee Symbols -------- Pages Processing ‘ 
3 File Total Loaded Percent Mapped Time ‘ 
: _$255$DUA28:CNML. OBJ INMLL 1B.L33;1 341 32 9 27 00:00.1 : 
; 7$255$DUA28:CSHRLIBINMALIBRY.L 32; 1 887 5 0 47 00:00.¢ : 
; 7$255$DUA28:CSYSLIBISTARLET.L32; 1 9776 2 0 581 00:02. : 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NMLLIST/OBJ=OBJ$:NMLLIST MSRC$:NMLLJST/UPDATE=(ENH$:NMLLIST) : 
3 bg Fe ~~. ogg ; 76 data bytes : 
> Elapsed Time: 00:39:8 : 
3 Lines/CPU Min: & $78 : 
: Lexemes/CPU-Min: ; 
3 ry Ue Used: 100 coon : 
; Compilation Complete : 
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